home *** CD-ROM | disk | FTP | other *** search
/ Clinical Endocrinology / Clinical Endocrinology.iso / pc / 00000000 / intro.dir / 00010_Script_10 < prev    next >
Text File  |  1995-11-09  |  1KB  |  35 lines
  1. ------------------------------------------
  2. -- Handler to open the MIAW for keeping screen history.
  3.  
  4. on openHistoryWindow
  5.   
  6.   global gSep, CDDrive
  7.   
  8.   put CDDrive & "00000000" & gSep & "History.dir" into childWindow
  9.   
  10.   -- Define Window boundaries
  11.   set theTop = the stageTop - 8
  12.   set theLeft = the stageLeft - 8
  13.   set theBottom = theTop + 2
  14.   set theRight = theLeft + 2
  15.  
  16.   set the rect of window childWindow = rect(theLeft,theTop,theRight,theBottom)
  17.   
  18.   set the title of window childWindow to "History"
  19.   set the windowType of window childWindow = 4
  20.   --set the modal of window childWindow = TRUE
  21.   open window childWindow
  22.   set the visible of window childWindow to false
  23.   
  24.   -- Define Window boundaries
  25.   set theTop = the stageTop + 100
  26.   set theLeft = the stageLeft + 200
  27.   set theBottom = theTop + 240
  28.   set theRight = theLeft + 240
  29.   
  30.   set the rect of window childWindow = rect(theLeft,theTop,theRight,theBottom)
  31.   
  32.   
  33. end openHistoryWindow
  34. ------------------------------------------
  35.